10 CLR:POKE53281,0:POKE53280,0:AM=99:Q$=CHR$(0):DIMEB(35,20)
20 PRINT"[147]NEW ERROR LOGGER"
30 PRINT"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
40 PRINT"CREATED BY JIM DREW"
50 GOSUB330
60 PRINT"PRESS ANY KEY WHEN READY"
70 GETA$:IFA$=""THENPOKE646,INT(13*RND(1)+2):GOTO60
80 OPEN15,8,15:PRINT#15,"I":CLOSE15
90 DIMBT(35):FORX=1TO17:BT(X)=20:NEXT:FORX=18TO23:BT(X)=18:NEXT
100 FORX=24TO30:BT(X)=17:NEXT:FORX=31TO35:BT(X)=16:NEXT
110 FORT=TSTOTE:PRINT"[147][159]TRACK # ";T;""
120 FORS=0TOBT(T)
130 PRINT"SECTOR # ";S;:IFS<10THENPRINT" ";
140 OPEN15,8,15
150 PRINT#15,"M-W"CHR$(6)Q$;CHR$(2)CHR$(T)CHR$(S)
160 PRINT#15,"M-W"Q$;Q$;CHR$(1)CHR$(128)
170 PRINT#15,"M-R"Q$;Q$
180 GET#15,A$:A=ASC(A$+Q$):IFA>AM THEN170
190 IFA=1THENPRINT" GOOD":EB(T,S)=.:GOTO310
200 IFA=2THENB$="READ ERROR"
210 IFA=3THENB$="READ ERROR"
220 IFA=4THENB$="READ ERROR"
230 IFA=5THENB$="READ ERROR"
240 IFA=6THENB$="BIT PATTERN ERROR"
250 IFA=7THENB$="WRITE ERROR"
260 IFA=8THENB$="WRITE PROTECT ON"
270 IFA=9THENB$="READ ERROR"
280 IFA=10THENB$="WRITE ERROR"
290 IFA=11THENB$="ID MISMATCH ERROR"
300 PRINT" ";A+18;" ";B$:EB(T,S)=A+18
310 CLOSE15:GETZ$:IFZ$<>""THEN450
320 NEXT:NEXT :GOTO450
330 PRINT"[154]YOU MAY CHOOSP[154] A SET OF TRACKS TO TEST"
340 PRINT"OR YOU CAN TEST ALL[154] TRACKS"
350 PRINT"PLEASE ENTER A[154] OR C: A[157]";:OPEN1,0:INPUT#1,C$:CLOSE1:PRINT
360 IFLEFT$(C$,1)="A"THENTS=1:TE=35:RETURN
370 IFLEFT$(C$,1)="C"THEN390
380 PRINT"[147]":GOTO330
390 PRINT"[147]";"STARTING TRACK #:";:OPEN1,0:INPUT#1,TS$:CLOSE1:PRINT:TS=VAL(TS$)
400 IFTS<0ORTS>35THEN390
410 PRINT"ENDING TRACK #:";:OPEN1,0:INPUT#1,TE$:CLOSE1:PRINT:TE=VAL(TE$)
420 IFTE<0ORTE>35THEN390
430 IFTE<TSTHEN390
440 RETURN
450 PRINT"[147][154]DO YOU WISH A REPORT OF DISK ERRORS: Y[157]";
460 OPEN1,0:INPUT#1,Q$:CLOSE1:PRINT
470 IFLEFT$(Q$,1)="Y"THEN500
480 IFLEFT$(Q$,1)="N"THEN10
490 GOTO450
500 PRINT"[154]OUTPUT TO PRINTER: N[157]";:OPEN1,0:INPUT#1,Q$:CLOSE1:PRINT
510 IFLEFT$(Q$,1)="Y"THEND=4
520 IFLEFT$(Q$,1)="N"THEND=3
530 OPEN4,D
540 PRINT"[147]"
550 FORT=TSTOTE:FORS=0TOBT(T)
560 IFEB(T,S)<>0THEN610
570 NEXT:NEXT
580 PRINT"END OF REPORT-PRESS ANY KEY":POKE198,0
590 GETA$:IFA$=""THEN590
600 GOTO10
610 PRINT#4,"ERROR # ";EB(T,S);" TRACK:";T;" SECTOR:";S
620 GOTO570
630 REM
640 REM
650 REM
660 REM
670 REM
680 REM
690 REM